﻿Public Class X_Council
    Inherits PO
    Public Table_Name As String = I_Council.TableName

    Public Sub New(ByVal id As Integer)
        Me.setPOinfo(PO.poInfoAll.Item(Me.Table_Name))
        MyBase.load(id)
    End Sub

    Public Overrides Function beforeSave(ByVal b As Boolean) As Boolean

        '' Viet: Truoc luu xuong database set Value cho cot Display
        Dim str As String = Me.getValue(I_Council.ColumnName_id)
        str += "_" + Me.getValue(I_Council.ColumnName_ThoiGian)
        str += "_" + Me.getValue(I_Council.ColumnName_DiaDiem)
        str += "_" + Me.getValue(I_Council.ColumnName_Type)
        str += "_" + Me.getValue(I_Council.ColumnName_DienGiai)
        Me.setValue(I_Council.ColumnName_Display, str)
        Return True
    End Function

    Public Overrides Function afterSave(ByVal b As Boolean) As Boolean
        Return True
    End Function

    Public Overrides Function beforeDelete() As Boolean
        Return True
    End Function

    Public Overrides Function afterDelete() As Boolean
        Return True
    End Function
End Class
